-- card: 3051 from stack: in.8
-- bmap block id: 2060
-- flags: 4000
-- background id: 2783
-- name: Main Card
----- HyperTalk script -----
on openCard
  hide bkgnd btn id 5
  show bkgnd btn id 34
  show bkgnd btn id 145
  pass openCard
end openCard

on closeCard
  hide bkgnd btn id 145
  hide bkgnd btn id 34
  show bkgnd btn id 5
  hide bkgnd btn id 124
  hide card field id 125
  set the lockText of card field id 8 to true
  hide card field id 8
  hide card btn id 127
  hide card btn id 128
  pass closeCard
end closeCard

on doMenu it
  if it is "Delete Card" or it is "Cut Card" then
    Beep 20
    answer "I can't let you remove the MAIN card!" with "Oops, sorry!"
    exit doMenu
  end if
  pass doMenu
end doMenu


-- part 8 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=10 top=166 right=280 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cards
----- HyperTalk script -----
on mouseUp
  hide btn id 127
  hide card field id 8
end mouseUp


-- part 125 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=10 top=293 right=332 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Welcome
----- HyperTalk script -----
on mouseUp
  hide card field id 125
end mouseUp



-- part 127 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=138 top=166 right=196 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 26509 / 26509
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Unlock Text
----- HyperTalk script -----
on mouseUp
  set lockText of card field id 8 to false
  hide card button id 127
  show card button id 128
end mouseUp



-- part 128 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=139 top=165 right=197 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 12517 / 12517
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lock Text
----- HyperTalk script -----
on mouseUp
  set lockText of card field id 8 to true
  hide card button id 128
  show card button id 127
end mouseUp



-- part contents for card part 8
----- text -----
Data Base,Graphics,Main Card,Phone Directory,Utilities,Data Base,Word Processing,HyperCard Utilities,HyperCard Stacks,

-- part contents for background part 23
----- text -----
Main Card

-- part contents for background part 36
----- text -----
                                          Currently installing the Work Station©
                                               button into your "Home" stack...
                                               …it's definitely worth the wait!

-- part contents for background part 45
----- text -----
Work Station© v3.8    by Debbie Iwatate ©1988
(XCMDs/XFCNs by James L. Paul, D. DeMars, S. Maller, Aron Roberts)
"FREEWARE"…  use at your own risk…do not sell!

-- part contents for background part 22
----- text -----
2/26/88
12:37 PM

-- part contents for card part 125
----- text -----
Welcome to Work Station© v3.8…by Debbie Iwatate
Click and hold on "Button/Card Tasks…" and select "Work Station Help"